﻿Public Class cbpassa
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        seguridad.verificapermisos()
    End Sub

    Protected Sub ASPxButton1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ASPxButton1.Click
        Try
            Dim user As String
            user = seguridad.usuarioid1
            Dim tabladapter As New DataSet1TableAdapters.usuariosTableAdapter
            tabladapter.UpdateQueryActualizaContraseña(txtnuevapasss.Text, user)
        Catch ex As Exception

        End Try
        txtnuevapasss.Text = ""
        txtrepitapass3.Text = ""
        System.Web.HttpContext.Current.Response.Redirect("~/Inicio/InicioA.aspx")
    End Sub
End Class